azama
azama
آفلاین
0

سلام دوستان ببخشید اگه ممکنه کد های زیر رو نگاهی بندازین دوتا مشکل دارم یکی اینکه وقتی نام کاربری ورمز و میدم وارد فرم نامبرده تو کد میشم ائن فرم باز میشه ولی پنجره لوگین همچنان هستش.سوال دومم اینه چطور میتونم هرکاربری که وارد میشه خوش امد به اسم همون شخص تو مسج نشون داده بشه

Option Compare Database

Private Sub Command1_Click()
If IsNull(Me.txtNameKarbari) Then
MsgBox "áØÝÇ äÇã ˜ÇÑÈÑí ÑÇ æÇÑÏ ˜äíÏ", vbInformation, "NameKarbari Required"
Me.txtNameKarbari.SetFocus
ElseIf IsNull(Me.txtPassword) Then
MsgBox "áØÝÇ ÓæÑÏ ÑÇ æÇÑÏ ˜äíÏ", vbInformation, "Password Required"
Me.txtPassword.SetFocus
Else
    'ادامه
    If (IsNull(DLookup("NameKarbari", "useridlogin", "NameKarbari ='" & Me.txtNameKarbari.Value & "'"))) Or _
    (IsNull(DLookup("Password", "useridlogin", "Password ='" & Me.txtPassword.Value & "'"))) Then
        MsgBox "!!äÇã ˜ÇÑÈÑí íÇ ÓæÑÏ ÇÔÊÈÇå ãíÈÇÔÏ"
       
    Else
        MsgBox "˜ÜÜÇÑÈÑ ÜÜÜÑÇãÜÜí ÎÜÜæÔ ÂãÏíÏ Èå ÈÇä˜ ÇØÜÜáÇÚÇÊí"
       
    DoCmd.OpenForm "daneshjo"
    End If
    End If
End Sub

همه قسمت ها به خوبی کار میکنه مشکلی تو این کدها نیست فقط بعد از وارد شدن پنجره لوگین نمیره و رو صفحه نمایان هس

در این کدها برای اینکه نام وارد شونده رو بهش خوش امد بگم چه چیزی رو باید اضافه کنم

پاسخ ها (6)
  • پاسخ پذیرفته شده

    azama
    azama
    آفلاین
    شنبه 06 - دی - 1393 01:09:03 - #لینک دائمی
    0
    اینقد با کد ها ور رفتم و جابجاشون کردم تا بصورت زیر پیداش کردم
    MsgBox "gerami khoshamadin", vbMsgBoxRight, Me.txtNameKarbari
    بازم راهشو مدیون شما هستم ک چطوری انجامش بدم
    ;);):)
    پاسخ به درستی کمینه شد نمایش
  • پاسخ پذیرفته شده

    azama
    azama
    آفلاین
    شنبه 06 - دی - 1393 00:20:48 - #لینک دائمی
    0
    درمورد سوال نمایش خوش امد بنام خود کاربر تو کاپشن فرم نمیخوام داداش مث یه پیام رو صفحه بیاد و به کاربری که وارد شده خوش امد بکه من از اکسس2013 استفاده میکنم
    پاسخ به درستی کمینه شد نمایش
  • پاسخ پذیرفته شده

    azama
    azama
    آفلاین
    جمعه 05 - دی - 1393 23:57:43 - #لینک دائمی
    0
    خیلی ممنون و متشکر انشالله موفق باشین داداش
    پاسخ به درستی کمینه شد نمایش
  • پاسخ پذیرفته شده

    azama
    azama
    آفلاین
    جمعه 05 - دی - 1393 23:55:32 - #لینک دائمی
    0
    درست شد چون من دقیق مث شما نوشتم نمیشد درحالی که شمام یادتون رفته بود یه ویرگول بعد ار acformبذارید منم هی مینوشتم
    و نمیشد همش میگفتم خدایا یعنی چی لقمه اماده گذاشتن دهنم بازم نشه الان یه نمونه از سایت استاک اور فالوو دیدم الانکه زدم درست شد ;)
    پاسخ به درستی کمینه شد نمایش
  • پاسخ پذیرفته شده

    azama
    azama
    آفلاین
    جمعه 05 - دی - 1393 21:29:28 - #لینک دائمی
    0
    :( نشد دادا
    پاسخ به درستی کمینه شد نمایش
  • پاسخ پذیرفته شده

    korakamsina
    korakamsina
    آفلاین
    پنج شنبه 04 - دی - 1393 19:11:08 - #لینک دائمی
    1
    سلام
    دوست عزیز با فرض بر اینکه شرطهایی که تعریف کردی صحیح باشه
    در زمانی که فرم "daneshjo" باز میشه در رویداد on open یا on load دستور بستن فرم لاگینتون رو بدید

    کد مربوطه
    docmd.Close acForm "فرم مورد لاگين"
    در مورد نام وارد شونده می تونید در رویداد on open یا on load
    فرم "daneshjo" از دستور زیر اسفاده کنید

    Me.Form.Caption = فيلد مورد نظر

    لطفا دستور رو در اکسس کپی کنید تا بهتر متوچه بشید

    موفق باشید
    پاسخ به درستی کمینه شد نمایش
پاسخ شما